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-- StmtMap.Mesa 
-- Edited by: 

Sandman on April 16, 1978 3:44 PM 

Barbara on July 13, 1978 10:38 AM 

DIRECTORY 

ControlDefs: FROM "controldef s" USING [BytePC, Global FrameHandle] , 
DebugBreakptDefs: FROM "debugbreakptdef s" , 
DebugData: FROM "debugdata" USING [texbwindow] , 
DebuggerDefs: FROM "debuggerdefs" USING [MainBTI, PcToBTI], 
DebugSymbolDefs: FROM "debugsymboldef s" USING [ 

DAcquireSymbolTable, DReleaseSymbolTable , Symbol sForGFrame], 
DebugUtilityDefs: FROM "debugutil itydefs" USING [CacheNewFile] , 
ImageDefs: FROM "imagedefs" USING [AddCleanupProcedure, Cleanupltem, 

CleanupMask, CleanupProcedure] , 
lODefs: FROM "iodefs" USING [CR, WriteChar], 
SegmentDefs: FROM "segmentdef s" USING [ 

FileHandle, FileNameError , FileSegmentHandle, Read], 
StreamDefs: FROM "streamdefs" USING [ 

CreateByteStream, Getlndex, Modifylndex, Setlndex, StreamError, 

StreamHandle, Streamlndex] , 
SymbolTablGDefs: FROM "symboltabledef s" USING [SymbolTableBase] , 
SymDefs: FROM "symdefs" USING [BTIndex. BTNull. FGTEntry], 
SystemDefs: FROM "systemdefs" USING [Al locateHeapNode, FreeHeapNode] . 
WindowDefs: FROM "windowdefs" USING [ 

SetFileHandleForWindow, SetlndexForWindow]; 

StmtMap: PROGRAM 

IMPORTS DDptr: DebugData, DebuggerDefs. DebugSymbolDefs, DebugUtilityDefs, 

ImageDefs, lODefs, SegmentDefs, StreamDefs, SystemDefs, WindowDefs 
EXPORTS DebugBreakptDefs 
SHARES SegmentDefs » 

BEGIN 

BytePC: TYPE « ControlDefs .BytePC; 

BTIndex: TYPE » SymDefs .BTIndex; 

SymbolTableBase: TYPE » SymbolTableDefs .SymbolTableBase; 

GlobalFrameHandle: TYPE » ControlDefs .Global FrameHandle; 

-- variables describing the file 

nullframe: GlobalFrameHandle « NIL; 
textframe: GlobalFrameHandle *- nullframe; 
symbase: SymbolTableBase; 
sourceavailable: BOOLEAN <- FALSE; 
sourceFGTavailable: BOOLEAN ♦- FALSE; 

-- fine-grain table utilities 

CodeMappingFailure: SIGNAL « CODE; 
SourceToObjectMappingNotAvailable: SIGNAL « CODE; 

FindCodelndex: PROCEDURE [pc: BytePC] RETURNS [CARDINAL] » 
BEGIN OPEN symbase; 

-- finds i such that pc is in [f gt[i] . cindex. .f gt[i+l] .cindex) 
bti: BTIndex ♦- DebuggerDefs .PcToBTI[symbase, pc]; 
1, s, 1: CARDINAL; 

IF -sourceFGTavailable THEN ERROR SourceToObjectMappingNotAvail able; 
IF bti = SymDefs. BTNull THEN ERROR CodeMappingFailure; 
WITH (bb+bti),info SELECT FROM 

External «> 

BEGIN s <- startlndex; 1 ♦- indexLength; END; 

ENDCASE «> ERROR; 
IF 1 « 1 THEN RETURN [s]; 
FOR i IN (s. ,s+l) DO 

IF pc < fgTable[i]. cindex THEN RETURN [i-1]; 

ENDLOOP; 
RETURN[i] 
END; 

FindFilelndex: PROCEDURE [index: CARDINAL] RETURNS [besti: CARDINAL] - 
BEGIN OPEN symbase; 

-- Finds least i such that index >- fgt[i]. Findex 
i, delta, x: CARDINAL; 
IF ~sourceFGTavail able THEN ERROR SourceToObjectMappingNotAvail able; 
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besti <- delta <- 0; 

FOR i IN [0. .LENGTH[fgTable]) DO 

IF (x <r fgTab1e[i].findex) > delta THEN 
BEGIN 

delta ^ x; 
besti <- i ; 
END; 
ENDLOOP; 
FOR i IN [0. .LENGTH[fgTab1e]) DO 

IF index >- (x <- f gTable[i] ,f index) AND (x ♦- index-x) < delta THEN 
BEGIN 

del ta ^ x; besti ♦- i ; 
IF delta ■ THEN RETURN[besti] ; 
END; 
ENDLOOP; 
RETURN[besti] 
END; 

EntryToBTI: PUBLIC PROCEDURE [sbase: SymbolTableBase , e: CARDINAL] 
RETURNS [BTIndex] « 
BEGIN OPEN sbase; 

bti, prev: BTIndex *• DebuggerDef s.MainBTI ; 
DO 

WITH b:(bb+bti) SELECT FROM 

Callable -> IF b.entrylndex « e THEN RETURN[bti]; 
ENDCASE; 
IF (bb+bti).firstSon ff SymDefs.BTNul 1 THEN bti <- (bb+bti ) . f irstSon 
ELSE DO 

prev ^ bti; bti ^ (bb+bti ). 1 ink. index; 
IF bti = SymDefs.BTNul! THEN GOTO Done; 
IF (bb+prev). link. which # parent THEN EXIT; 
ENDLOOP; 
REPEAT 

Done -> NULL; 
ENDLOOP; 
RETURNCbti] 
END; 

-- interface routines 

BodyEntryPc: PUBLIC PROCEDURE [frame: GlobalFrameHandle, e: CARDINAL, 
noSym: BOOLEAN] RETURNS [pc: BytePC] » 
BEGIN OPEN DebugSymbolOefs; 
bti: BTIndex; 

symFSH: SegmentDef s . FileSegmentHandle; 
sbase: SymbolTableBase ♦- DAcquireSymbolTable[ 

LOOPHOLE[symFSH <- LOOPHOLE[Symbol sForGFrame[f rame]]]] ; 
bti <- EntryToBTI[sbase,e]; 
BEGIN OPEN sbase; 
FGTAvailable[ symFSH, sbase]; 
WITH (bb+bti). info SELECT FROM 

External «> 

pc ^ IF sourceFile - NIL OR indexLength <» 1 OR noSym THEN [origin] 
ELSE [f gTab 1 e[s tart I ndex+l].c index]; 

ENDCASE «> ERROR; 
DRe 1 e as eSymbol Tab le[ sbase]; 
END; 
RETURN 
END; 

BodyExitPc: PUBLIC PROCEDURE [frame: GlobalFrameHandle, e: CARDINAL] 
RETURNS [pc: BytePC] » 
BEGIN OPEN DebugSymbolDefs; 
bti: BTIndex; 

sbase: SymbolTableBase *- DAcquireSymbolTable[Symbol sForGFrame[f rame]] ; 
bti <r- EntryToBTI[sbase,e]; 
BEGIN OPEN sbase; 
WITH (bb+bti). info SELECT FROM 

External ■> pc <- [origin + bytes-1]; 
ENDCASE «> ERROR; 
DRe 1 ea seSymbol Tab le[ sbase]; 
END; 
RETURN 
END; 

CodeToSourcelndex: PUBLIC PROCEDURE [frame: GlobalFrameHandle, pc: BytePC] 
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RETURNS [index: CARDINAL] ■ 

BEGIN OPEN symbase; 

SetUpSourceFileCf name]; 

index ^ fgTab1e[FindCodeIndex[pc]].f index; 

Deb u gSymb IDefs.DReleaseSymbol Tab le[ symbase]; 

RETURN 

END; 

StringToFGTEntry: PUBLIC PROCEDURE [ 

frame: GlobalFrameHandle, entryindex: CARDINAL, s: STRING] 

RETURNS [fgte: SymDef s . FGTEntry] ■ 

BEGIN OPEN symbase; 

bti: BTIndex; 

SetUpSourceFile[ frame]; 

bti ♦- EntryToBTI[symbase, entryindex]; 

WITH (bb+bti).info SELECT FROM 

External -> 

fgte ^ f gTable[FindFileIndex[TextStringSearch[ 
s , f gTable[F indCodeIndex[[ori gin]]]. f index]]] ; 

ENDCASE -> ERROR; 
DebugSymbolDefs.DReleaseSymbol Tab! e[ symbase]; 
RETURN 
END; 

PrintLocation: PUBLIC PROCEDURE [frame: Global FrameHandle , index: CARDINAL, 
scroll: BOOLEAN] - 
BEGIN 

pos: StreamDefs .Streamlndex; 
SetUpSourceFile[ frame]; 

DebugSymb IDefs.DReleaseSymbol Tab le[ symbase]; 
pos <- NextTextLine[index, lODef s .Wri teChar] ; 

IF scroll THEN WindowDef s . SetIndexForWindow[DDptr . textwindow. pos]; 
RETURN 
END; 

-- source file manipulation 

SourceFileMissing: PUBLIC SIGNAL [sourcename: STRING] » CODE; 

SetUpSourceFile: PROCEDURE [frame: Global FrameHandle] » 
BEGIN OPEN DebugSymbolDefs; 
symFSH: SegmentDef s . FileSegmentHandle; 
file: SegmentDef s . FileHandle; 
IF frame ^ textframe THEN ReleaseSourceFile[] ; 
symbase <- DAcquireSymbolTable[ 

LOOPHOLE[symFSH ^ LOOPHOLE[Symbol sForGFrame[f name]]]] ; 
BEGIN OPEN symbase; 

ENABLE UNWIND »> DRel easeSymbolTable[symbase] ; 
IF frame ^ textframe OR ~sourceavail able THEN 
BEGIN 

textframe ♦- frame; 
FGTAvailable[ symFSH, symbase]; 
IF sourceFile ff NIL THEN 
BEGIN 
file ^ OpenTextFile[sourceFile 1 NoSource =•> 

BEGIN sourceavailable <- FALSE; file <- NIL; CONTINUE END]; 
IF sourceavailable THEN WindowDef s .SetFi leHandleForWindowf 

DDptr . textwindow, file, sourceFile]; 
END; 
END; 
IF -sourceavailable THEN ERROR SourceFileMissing[ 

IF sourceFile ^ NIL THEN sourceFile ELSE "-- Compressed Symbols --"L]; 
END; 
RETURN 
END; 

ReleaseSourceFile: PROCEDURE « 
BEGIN 

IF textframe ff nullframe AND sourceavailable THEN CloseT0xtFile[]; 
textframe ^ nullframe; 
RETURN 
END; 

CleanupSourceFile: ImageDef s .CleanupProcedure - 
BEGIN 
IF why « OutLd THEN ReleaseSourceFil e[] ; 
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RETURN 
END; 

FGTAvailable: PROCEDURE [fsh: SegmentDef s . FileSegmentHandle, 
symbase: SymbolTableBase] ■ 
BEGIN OPEN symbase; 
IF fsh. pages i^ (stHanclle.f gRelPgBase+stHandle.f gPgCount) 

THEN sourceFile ^ NIL; 
IF sourceFile ■ NIL 

THEN sourceFGTavailable ♦- sourceavailable ^ FALSE 
ELSE sourceavailable ^ sourceFGTavailable ^ TRUE; 
END; 

-- text searching routines 

window: StreamDef s .StreamHandle; 

NoSource: ERROR ■ CODE; 

OpenTextFile: PROCEDURE [name: STRING] RETURNS [SegmentDef s.FileHandle] ■ 
BEGIN OPEN SegmentDefs; 
file: FileHandle ^ DebugUtil ityDef s.CacheN8wFile[name, Read 

I FileNameError "> ERROR NoSource]; 
window ^ StreamDef s.CreateByteStream[file, Read]; 
RETURN[file]; 
END; 

CloseTextFile: PROCEDURE - 
BEGIN 

IF window « NIL THEN RETURN; 
window. destroy[window]; 
window ♦- NIL; 
RETURN 
END; 

NextTextLine: PROCEDURE [index: CARDINAL, outchar: PROCEDURE [CHARACTER]] 
RETURNS [StreamDef s.Streamlndex] « 
BEGIN OPEN StreamDefs; 
ControlZ: CHARACTER » 32C; 
linestart, pos: Streamlndex; 
c: CHARACTER; 

SetIndex[window,StreamIndex[0, index]]; 
linestart <- pos <- GetIndex[window] ; 
linestart <- ModifyIndex[l inestart, -1]; 
SetIndex[window, linestart]; 
c *- window. get[window]; 
UNTIL c = lODefs.CR DO 

IF GetIndex[window] = StreamIndex[0, 1] THEN 
BEGIN window. reset[window]; EXIT; END; 

linestart ^ ModifyIndex[l inestart, -1]; 

SetIndex[window, linestart]; 

c <- window. get[window]; 

ENDLOOP; 
linestart ♦- GetIndex[window]; 
UNTIL window. endof [window] DO 

IF GetIndex[window] =« pos THEN 

BEGIN outchar['<]; outchar['>]; END; 

c ♦- window. get[window]; 

SELECT c FROM 

ControlZ "> 

BEGIN outchar[IODefs.CR]; EXIT END; 

ENDCASE => BEGIN outchar[c]; 
IF c = lODefs.CR THEN EXIT; 
END; 

ENDLOOP; 
RETURN[linestart] 
END; 

StringTooLong: PUBLIC SIGNAL [STRING] « CODE; 
StringMatchFailure: PUBLIC SIGNAL [STRING] « CODE; 

TextStringSearch: PROCEDURE [s: STRING, index: CARDINAL] RETURNS [CARDINAL] 
-- searches for s using the Knuth, Pratt, Morris algorithm. 
-- returns byte index oF the beginning of s. 
BEGIN OPEN StreamDefs; 
i, j, intL: INTEGER; 
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offset: CARDINAL ^ 0; 

char: CHARACTER; 

1: CARDINAL *- s. length; 

ff: DESCRIPTOR FOR ARRAY OF INTEGER; --• failure function 

IF 1 - THEN RETURN[index]; -- empty string 

IF 1 > 60 THEN ERROR StringTooLong[s] ; -- too big 

ff ^ DESCRIPTOR[SystemDefs.AnocateHeapNode[l],l]; 

-- set up failure function 

intL 4-1; J 4- 0; 1 ♦- ff[03 ♦- -1; 

WHILE j < intL-1 DO 

WHILE i >- AND s[J] § s[i] DO i ^ ff[i] ENDLOOP; 

i ♦- i+1; j 4- j+1; 

ff[j] 4- IF s[J] - s[i] THEN ff[i] ELSE i; 

ENDLOOP; 
SetInclex[window, [page :0, byte: index]]; 
j 4- 0; -- j ■ pattern index 
DO ENABLE UNWIND ■> SystemDef s . FreeHeapNodeCBASE[f f ]] ; 

IF j >■ intL THEN EXIT; 

char 4- window. get[window I StreamError «> GOTO fail]; 

offset 4- offset+1; 

WHILE J >- AND char # s[j] DO j ^ ff[J] ENDLOOP; 

j ^ j + 1; 

REPEAT 

fail -> ERROR StringMatchFailure[s] ; 

ENDLOOP; 
SystemDef s.FreeHeapNode[BASE[ff]]; 
RETURN[index+offset-l] 
END; 

-- Main Body 

cleanupSource: ImageDef s .Cleanupltem 4- imageDef s .Cleanupltem [ 

link:, mask: ImageDef s.CleanupMask[OutLd], proc: CleanupSourceFile] ; 

ImageDef s .AddCleanupProcedure[0cleanupSource] ; 

END. 



